-- Haskore Live!
--
-- David Siegel <djsiegel@seas.upenn.edu>
-- Jonathan Coveney <jcoveney@wharton.upenn.edu>
--
-- Base.hs
--

-- | The 'Base' module provides facilities for defining underlying base beats
-- to improvise upon and add to.
module Base ( base
            , runTests
            ) where

import Test.HUnit

import Basics
import Beats hiding (runTests)

-- | The main base track that is loaded by default when Haskore Live is started.
base :: Music
base = cut 8 $ repeatM $ music "Drums" 3 "o-o-b-o-"

-- | Runs unit tests.
runTests = runTestTT $
    TestList []

